Caption = "Please feel free to modify this code in any way you please. If you make any signifigant improvements, upload the files. Suggestions: 3D effects for the Form, more tab styles, multiple focus (one for each row),"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Index = 38
Left = 480
TabIndex = 46
Top = 3120
Width = 4815
End
Begin Label l
BackStyle = 0 'Transparent
Caption = "Since this control is VB source code and freely modifiable by the user, I didn't feel it was necessary to anticipate every possible usage. Most of this kind of code would need to be removed each time it was used.. For example, the Resize code can be removed if your forms are not sizable."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1095
Index = 37
Left = 480
TabIndex = 45
Top = 1920
Width = 4815
End
Begin Label l
BackStyle = 0 'Transparent
Caption = "This control is Freeware. It is based on a similar control written by James Parr and uploaded to compuserve. It is 100% VB code, no DLL's, no VBX's, yet it should perform about as well. This control adds 3D effects, multiple instances, and mixed control types for pages."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1095
Index = 36
Left = 480
TabIndex = 44
Top = 720
Width = 4815
End
Begin Label l
BackStyle = 0 'Transparent
Caption = "V. About this control."
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 35
Left = 120
TabIndex = 43
Top = 120
Width = 5295
End
End
Begin PictureBox PicBox
BackColor = &H00C0C0C0&
Height = 4215
Index = 4
Left = 1200
ScaleHeight = 4185
ScaleWidth = 5625
TabIndex = 6
Tag = "Step 4"
Top = 600
Width = 5655
Begin Label l
BackStyle = 0 'Transparent
Caption = "The tab control is generated by first drawing one tab in the proper size and orientation (invbox) and then blitting this picture to the visible picturebox (tabbox). Rescaling and StretchBlting seemed even more cumbersome than the method used. When a tab is clicked, only the tab captions and the focus line are redrawn. While the speed could be improved a little, the response of the control seems to depend more on the pages and their contents at this point than on the tab element."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1695
Index = 34
Left = 480
TabIndex = 42
Top = 2280
Width = 4815
End
Begin Label l
BackStyle = 0 'Transparent
Caption = "Run the project and examine the control. The code controlling the graphic appearance is in DrawTabs(). TabClick() controls the behavior of the tabs when clicked. Try resetting the tb.num and tb.cols values. Note that unused spaces are filled with unlabeled tabs; this was done because of the awkward effect produced when a partial row was moved beneath a full row, so be prepared to tackle this problem if you wish to eliminate unused tabs."
